home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 69
/
069.d81
/
ffont mover
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
1KB
|
10 lines
10 rem *ffont file mover*
20 a=2723:b=a+1:c=a+2:sys3115
30 sys3160:n$="":fori=.to4:n$=n$+chr$(peek(2709+i)):next
40 n=val(n$):ifn/2048<>int(n/2048)then30
50 ifn<4096orn>52000or(n>38912andn<49152)then30
60 n=n/256:pokea,n:n=(n/4)and15:ifn<10thenpokeb,48:pokec,n+48
70 ifn>9thenpokeb,49:pokec,n+38
80 sys3170:ifpeek(a)=89thenrun
90 end